{sample program in TINY language-computes factorial}
read x;  {input an integer}
if 0<x then  {dont compute if x<=0}
fact:=1;
repeat
fact := fact*x;
x := x-1;
until x=0;
write fact;  {output factorial of x}
end
